letalidade_Brasil_Italia <- dados_covid %>%
filter(Country=="Brazil"|Country=="Italy",
New_cases>0) %>%
mutate(letalidade_diaria = New_deaths/New_cases*100) %>%
group_by(Country) %>%
summarise(letalidade_media = mean(letalidade_diaria),
desvio_padrao = sd(letalidade_diaria ),
Casos_maximo = max(New_cases),
Obitos_maximo = max(New_deaths))
letalidade_Brasil_Italia# A tibble: 2 × 5
Country letalidade_media desvio_padrao Casos_maximo Obitos_maximo
<chr> <dbl> <dbl> <int> <int>
1 Brazil 2.08 1.68 298408 4249
2 Italy 2.68 5.15 228123 993